home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ IE File URLS 1.xpl < prev    next >
Text File  |  2002-01-10  |  2KB  |  60 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Internet Explorer\System"
  5. "NAME"="Disable URL types"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Disable File URLs"
  9. "TEXT 2"="Restrict About URLs"
  10. "DESCRIPTION 1"="Normally you can use the Internet Explorer address bar to access standard files and folders on your computer. This setting disables that functionality."
  11. "DESCRIPTION 2"="Certain web sites force the opening of a hidden popup tracking minimized window upon your first visit, or when you leave their web site, or when you close your browser while one of their web pages is still displayed, using the 'about:' protocol. This option puts all about: URLs into the restricted sites zone, so that scripts cannot be run."
  12. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Option 1 taken from http://www.winguides.com/registry/display.php/959/"
  16. "COMMENT 2"="Option 2 taken from http://members.aol.com/axcel216/newtip22.htm#KIAU"
  17.  
  18. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileUrl"
  19. sQ="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\ProtocolDefaults\"
  20.  
  21. Sub Plugin_Initialize 
  22.  s=RegReadValue(sP)
  23.  if s=1 then
  24.   Call SetUIElement(1,true)
  25.  end if
  26.  s=RegReadValue(sQ & "about")
  27.  if s=4 then
  28.   Call SetUIElement(2,true)
  29.  end if
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  s=GetUIElement(1)
  34.  if s=true then
  35.   Call RegWriteValue(sP,1,2)
  36.  else
  37.   Call RegWriteValue(sP,0,2)
  38.  end if
  39.  
  40.  s=GetUIElement(2)
  41.  if s=true then
  42.   Call RegWriteValue(sQ & "about",4,2)
  43.   Call RegWriteValue(sQ & "about:",4,2)
  44.  else
  45.   t=RegReadValue(sQ & "about")
  46.   if IsEmpty(t)=false then
  47.    Call RegDeleteValue(sQ & "about")
  48.   end if
  49.   t=RegReadValue(sQ & "about:")
  50.   if IsEmpty(t)=false then
  51.    Call RegDeleteValue(sQ & "about:")
  52.   end if
  53.  end if
  54.  
  55.  Call IndicateSettingChange()
  56. End Sub
  57.  
  58. Sub Plugin_Terminate 
  59. End Sub
  60.